home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
hyprln.zip
/
HYPRDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-12-13
|
3KB
|
72 lines
(** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **)
(** HyperText help utility Demo for Turbo Pascal **)
(** Copyright (c) 1990 by BGASoft **)
(** Written By Robert Gurrieri **)
(** September 1990 **)
(** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **)
{$M,2000,2500,2500}
{!!!!!!!!}
{! NOTE !}{^---- You must set the low heap limit to a minimum value of 2500 }
{!!!!!!!!}
Program HyperDemo;
Uses
Crt,
Hyper60; {If you are using Turbo Pascal v5.0 or v5.5 then include the}
{appropriate unit instead}
Begin
If LastMode = 7 Then
Begin
COLOR[1] := 0; {Background color for Normal text}
COLOR[2] := 7; {Foreground color for Normal text}
COLOR[3] := 15;{Background color for Highlight Bar (reverse video)}
COLOR[4] := 0; {Foreground color for Highlight Bar (reverse video)}
COLOR[5] := 15;{Foreground color for Brighter text (help keywords)}
End
Else
Begin
COLOR[1] := 1; {Background color for Normal text}
COLOR[2] := 15;{Foreground color for Normal text}
COLOR[3] := 15;{Background color for Highlight Bar (reverse video)}
COLOR[4] := 1; {Foreground color for Highlight Bar (reverse video)}
COLOR[5] := 11;{Foreground color for Brighter text (help keywords)}
End;
ClrScr;
GotoXY(1,10);
Writeln('Welcome to the Demonstration program for HyperLink(tm)!');
Writeln;
Writeln('press any key to continue...');
Repeat
Until ReadKey > #0;
ClrScr;
{ You will probably want to turn the cursor off, as well as save the }
{ contents of the screen at this time.}
HyperLink(1,2,79,25,'Main Menu');{****************************************}
{ Turn the cursor back on and restore the previous contents of the screen. }
ClrScr;
GotoXY(1,10);
Writeln('This help facility allows you specify the size and location of the');
Writeln('help window on the screen.');
Writeln;
Writeln('press any key to continue...');
Repeat
Until ReadKey > #0;
ClrScr;
HyperLink(12,2,68,21,'Main Menu');{****************************************}
ClrScr;
GotoXY(1,10);
Writeln('You may also start the help facility with the topic of your choice');
Writeln;
Writeln('press any key to continue...');
Repeat
Until ReadKey > #0;
ClrScr;
HyperLink(19,5,79,24,'Registration');{******************************}
End.